COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C DISPLAYS AND PLOTS TVIOF PROCESSED FILES.
C00006 ENDMK
C⊗;
C DISPLAYS AND PLOTS TVIOF PROCESSED FILES.

C  TYPE <CR> TO REPEAT LAST FILE READ IN.
C  TYPE  'X'  TO EXIT, TYPE  'SAVE'  TO SAVE FILE FOR DRAWING PROG.
C  TYPE  'T'  TO TYPE LIST OF ALL YOUR CURRENT INPUT.
C  TYPE 'FUNC NM'  WHERE NM = FUNC FILE NAME FOR DISTORTION FUNCTION.
C  TYPE 'STEP N'  WHERE N = STEPS DISPLACEMENT FOR 2ND AND 3RD RUNS.
C  TYPE 'CENTR F' WHERE F = CENTER FOR DISTORTION FUNC. (0 TO 1.0?)
C  TYPE 'CLEAR' TO REINITIALIZE DISPLAY.

	COMMON/JOMMAC/ILINE,JLINE,KSIDE,MSIDE,NEWZ
	COMMON/DRW/JDRW(2000) /OUTF/IPLT
	COMMON/DDP/IDP1(4000),INP(10,20)
	COMMON/FU/FUJ(512),JJX,RDIV,ADML

	INTEGER FLINE,RSIDE,FILE
CC	LOGICAL FUNCTION ADMISS
CC	ADMISS(DTA)=DTA.EQ.-7.OR.(1.LE.DTA.AND.DTA.LE.10)
	JDRW(1)=1
	JDRW(3)=0
83	FORMAT(2A5)
204	FORMAT(' TYPE THE FILE NAME'/)
330	TYPE 204
	IPLT=0
C  IPLT IS FOR NEW PLOT ROUTINE ('76)
	NEWEND=0
	ACCEPT 83,FILE,JFU
	IF(FILE.NE.'STEP')GO TO 20
	REREAD 21,N,JJX
	GO TO 330
21	FORMAT(A5,I)
20	IF(FILE.NE.'CENTR')GO TO 22
	REREAD 23,N,RDIV
C  TYPE +100 FOR ADDING INSTEAD OF MULT.
	ADML=0
	IF(ABS(RDIV).LT.100)GO TO 330
	ADML=-1
	RDIV=AMOD(RDIV,100.)
	IF(RDIV.EQ.0)RDIV=1.
	GO TO 330
23	FORMAT(A5,F)
22	IF(FILE.EQ.'FUNC')GO TO 13
C  YOU CAN TYPE FUNC FILE NAME AFTER 'FUNC '!
	IF(FILE.NE.'CLEAR')GO TO 24
	CALL DPYCLR
	CALL DPYSET(1,IDP1,4000)
	GO TO 330
24	IF(NEWZ.EQ.1.AND.FILE.EQ.' ')FILE=JFILE
	IF(FILE.EQ.JFILE)GO TO 252
	IF(FILE.EQ.'T')GO TO 1
	IF(FILE.NE.'X')GO TO 4
	IF(JDRW(3).EQ.0)CALL EXIT
	CALL DD
C  DD FEEDS DRAWING PROGRAM  (SOMEDAY)
C  GIVE BLANK FILE NAME TO USE SAME ONE OVER, X=EXIT.
4	REWIND 1
	IF(LOOKD(FILE).GE.0)GO TO 330
	CALL IFILE(1,FILE)
	CALL READR(NEWEND)
	IF(NEWZ.EQ.1)JFILE=FILE
252	CALL PLOU(NEWEND)
	GO TO 330
1	NEWEND=-1
	CALL PLOU(NEWEND)
	GO TO 330

3	REWIND 21
6	K=JDRW(1)+1
	
	IF(K.LE.201)GO TO 5
	JDRW(1)=200
	K=201
5	WRITE(21,40)K
40	FORMAT(' 9999  1 ',I4,' 0 0 0 0 0 0 0 0')
	J=7
	L=8
	DO 12 K=1,JDRW(1),8
	IF(K+J.LT.JDRW(1))GO TO 12
	J=JDRW(1)-K
	L=J+1
12	WRITE(21,11)L,(JDRW(N),N=K,K+J)
	CALL EXIT
11	FORMAT(' 9999',I3,8I10)
13	CALL DPFUN(JFU)
	GO TO 330
	END